Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / receipt / reciept2.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-21 | 22.8 KB | 704 lines

VERSION 2.00 Begin Form Form2 BackColor = &H00FF0000& Caption = "Edna's Invoice / Purchase Order" ClientHeight = 6915 ClientLeft = 675 ClientTop = 2415 ClientWidth = 9600 FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 7320 Left = 615 LinkMode = 1 'Source LinkTopic = "Form2" ScaleHeight = 461 ScaleMode = 3 'Pixel ScaleWidth = 640 Top = 2070 Width = 9720 Begin CommandButton Command1 Caption = "Exit" Height = 330 Index = 3 Left = 7380 TabIndex = 14 Top = 6525 Width = 1905 End Begin CommandButton Command1 Caption = "New Reciept" Height = 330 Index = 2 Left = 5025 TabIndex = 11 Top = 6525 Width = 2070 End Begin CommandButton Command1 Caption = "Print" Height = 345 Index = 1 Left = 2625 TabIndex = 10 Top = 6525 Width = 2010 End Begin CommandButton Command1 Caption = "Back" Height = 330 Index = 0 Left = 300 TabIndex = 9 Top = 6525 Width = 2010 End Begin PictureBox Picture4 BackColor = &H00C0C0C0& Height = 690 Left = 30 ScaleHeight = 660 ScaleWidth = 9510 TabIndex = 8 Top = 5745 Width = 9540 Begin VBedit RecievedDate BackColor = &H00C0C0C0& CellHeight = 480 CellWidth = 250 CharSet = 16396 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 7410 OnTap = -1 'True TabIndex = 25 Text = " / / " Top = 240 Version = 268435458 Width = 2055 End Begin VBedit SchDate BackColor = &H00C0C0C0& CellHeight = 480 CellWidth = 250 CharSet = 16396 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 405 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 45 OnTap = -1 'True TabIndex = 29 Text = " / / " Top = 240 Version = 268435458 Width = 2055 End Begin VHedit DriverSig BackColor = &H00C0C0C0& BorderStyle = 2 'Underline DelayRecog = -1 'True Height = 465 InflateBottom = 300 InflateLeft = 300 InflateRight = 300 InflateTop = 300 Left = 5685 MultiLine = 0 'False TabIndex = 24 Top = 180 Version = 268435458 Width = 1620 End Begin VHedit CheckSig BackColor = &H00C0C0C0& BorderStyle = 2 'Underline DelayRecog = -1 'True Height = 465 InflateBottom = 300 InflateLeft = 300 InflateRight = 300 InflateTop = 300 Left = 3960 MultiLine = 0 'False TabIndex = 31 Top = 180 Version = 268435458 Width = 1650 End Begin VHedit LoadSig BackColor = &H00C0C0C0& BorderStyle = 2 'Underline DelayRecog = -1 'True Height = 465 InflateBottom = 300 InflateLeft = 300 InflateRight = 300 InflateTop = 300 Left = 2250 MultiLine = 0 'False TabIndex = 30 Top = 180 Version = 268435458 Width = 1620 End Begin Label Label11 BackColor = &H00C0C0C0& Caption = "Recieved By Customer" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Left = 7470 TabIndex = 20 Top = -15 Width = 1905 End Begin Label Label10 BackColor = &H00C0C0C0& Caption = "Driver" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Left = 6240 TabIndex = 19 Top = -15 Width = 510 End Begin Label Label9 BackColor = &H00C0C0C0& Caption = "Checked By" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Left = 4290 TabIndex = 18 Top = -15 Width = 1020 End Begin Label Label8 BackColor = &H00C0C0C0& Caption = "Loaded By" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Left = 2640 TabIndex = 17 Top = -15 Width = 900 End Begin Label Label7 BackColor = &H00C0C0C0& Caption = "Scheduled Delivery Date" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Left = 75 TabIndex = 16 Top = -15 Width = 1995 End End Begin PictureBox Picture3 BackColor = &H00C0C0C0& Height = 690 Left = 30 ScaleHeight = 660 ScaleWidth = 9510 TabIndex = 7 Top = 5025 Width = 9540 Begin VBedit CompDate BackColor = &H00C0C0C0& CellHeight = 480 CellWidth = 250 CharSet = 16396 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 405 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 7410 OnTap = -1 'True TabIndex = 28 Text = " / / " Top = 240 Version = 268435458 Width = 2055 End Begin VBedit NotifiedDate BackColor = &H00C0C0C0& CellHeight = 480 CellWidth = 250 CharSet = 16396 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 30 OnTap = -1 'True TabIndex = 26 Text = " / /" Top = 240 Version = 268435458 Width = 2070 End Begin VHedit PickUpSig BackColor = &H00C0C0C0& BorderStyle = 2 'Underline DelayRecog = -1 'True Height = 465 InflateBottom = 300 InflateLeft = 300 InflateRight = 300 InflateTop = 300 Left = 2595 MultiLine = 0 'False TabIndex = 27 Top = 180 Version = 268435458 Width = 4200 End Begin Label Label6 BackColor = &H00C0C0C0& Caption = "Order Completed By Date" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Left = 7380 TabIndex = 15 Top = -15 Width = 2130 End Begin Label Label5 BackColor = &H00C0C0C0& Caption = "Customer PickUp Signature" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Left = 3465 TabIndex = 13 Top = -15 Width = 2325 End Begin Label Label4 BackColor = &H00C0C0C0& Caption = "Customer Notified Date" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 165 Left = 105 TabIndex = 12 Top = -15 Width = 1935 End End Begin PictureBox Picture2 BackColor = &H00C0C0C0& Height = 690 Left = 30 ScaleHeight = 660 ScaleWidth = 9510 TabIndex = 3 Top = 4305 Width = 9540 Begin VBedit SigDate BackColor = &H00C0C0C0& CellHeight = 480 CellWidth = 250 CharSet = 16396 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 405 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 3960 OnTap = -1 'True TabIndex = 22 Text = " / / " Top = 240 Version = 268435458 Width = 2055 End Begin VHedit MgmtSig BackColor = &H00C0C0C0& BorderStyle = 2 'Underline DelayRecog = -1 'True Height = 630 InflateBottom = 300 InflateLeft = 300 InflateRight = 300 InflateTop = 300 Left = 7125 MultiLine = 0 'False TabIndex = 23 Top = 15 Version = 268435458 Width = 2370 End Begin VHedit CustSig BackColor = &H00C0C0C0& BorderStyle = 2 'Underline DelayRecog = -1 'True Height = 630 InflateBottom = 300 InflateLeft = 300 InflateRight = 300 InflateTop = 300 Left = 870 MultiLine = 0 'False TabIndex = 21 Top = 15 Version = 268435458 Width = 2535 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "Date" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 165 Left = 3540 TabIndex = 5 Top = 465 Width = 375 End Begin Label Label3 BackColor = &H00C0C0C0& Caption = "Managment Approval" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 405 Left = 6165 TabIndex = 6 Top = 240 Width = 1005 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "Customer Approval" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 450 Left = 15 TabIndex = 4 Top = 240 Width = 870 End End Begin Grid Grid2 Cols = 2 FixedRows = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1905 HighLight = 0 'False Left = 7350 Rows = 6 TabIndex = 2 Top = 2370 Width = 2220 End Begin PictureBox Picture1 BackColor = &H00C0C0C0& Height = 1905 Left = 30 ScaleHeight = 125 ScaleMode = 3 'Pixel ScaleWidth = 484 TabIndex = 1 Top = 2370 Width = 7290 End Begin Grid Grid1 BackColor = &H00FFFFFF& Cols = 6 FixedCols = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 2310 Left = 30 Rows = 25 ScrollBars = 2 'Vertical TabIndex = 0 Top = 30 Width = 9540 End Sub Command1_Click (Index As Integer) Select Case Index Case 0 Unload Form2 Case 1 MousePointer = 11 For i% = 1 To 1000 Next i% CustSig.Enabled = 0 MgmtSig.Enabled = 0 SaveInfo MousePointer = 0 Case 2 x = MsgBox("This will erase current customer data.", 1) If x = 1 Then SaveInfo InitVars Unload Form2 End If Case 3 x = MsgBox("This will end your Reciept Session.", 1) If x = 1 Then SaveInfo Unload Form2 End End If End Select End Sub Sub CompDate_LostFocus () If CheckDate%(CompDate) Then MsgBox "Invalid Completed By Date!!!" CompDate.SetFocus End If End Sub Sub Form_Load () Form2.Show Form2.WindowState = 2 SigDate.Text = Format$(Now, "mm/dd/yy") For i% = 0 To 5 Grid1.FixedAlignment(i%) = 2 Next i% Grid1.Row = 0 Grid1.Col = 0 Grid1.Text = "QTY." Grid1.Col = 1 Grid1.Text = "UNIT" Grid1.Col = 2 Grid1.Text = "ITEM NO." Grid1.Col = 3 Grid1.Text = "DESCRIPTION/COMMENTS" Grid1.Col = 4 Grid1.Text = "PRICE EACH" Grid1.Col = 5 Grid1.Text = "EXT." Grid1.ColWidth(0) = 510 Grid1.ColWidth(1) = 510 Grid1.ColWidth(2) = 1020 Grid1.ColWidth(3) = 5355 Grid1.ColWidth(4) = 900 Grid1.ColWidth(5) = 900 Grid1.ColAlignment(0) = 0 Grid1.ColAlignment(1) = 1 Grid1.ColAlignment(2) = 1 Grid1.ColAlignment(3) = 0 Grid1.ColAlignment(4) = 1 Grid1.ColAlignment(5) = 1 Grid2.ColWidth(0) = 1025 Grid2.ColWidth(1) = 1000 Grid2.ColAlignment(1) = 1 Grid2.FixedAlignment(0) = 2 Grid2.Col = 0 Grid2.Row = 0 Grid2.Text = "SUB TOTAL" Grid2.Row = 1 Grid2.Text = "TAX" Grid2.Row = 2 Grid2.Text = "FREIGHT/UPS" Grid2.Row = 3 Grid2.Text = "GRAND TOTAL" Grid2.Row = 4 Grid2.Text = "DEPOSIT" Grid2.Row = 5 Grid2.Text = "BALANCE DUE" End Sub Sub Grid1_Click () Grid1.SelStartCol = 0 Grid1.SelEndCol = 5 Grid1.SelStartRow = Grid1.Row Grid1.SelEndRow = Grid1.Row End Sub Sub Grid1_DblClick () Form3.Show 1 Picture1_Paint End Sub Sub Grid2_DblClick () Form8.Show End Sub Sub Label1_DblClick () CustSig.EraseInk = -1 End Sub Sub Label10_DblClick () DriverSig.EraseInk = -1 End Sub Sub Label3_DblClick () MgmtSig.EraseInk = -1 End Sub Sub Label5_DblClick () PickUpSig.EraseInk = -1 End Sub Sub Label8_DblClick () LoadSig.EraseInk = -1 End Sub Sub Label9_DblClick () CheckSig.EraseInk = -1 End Sub Sub NotifiedDate_LostFocus () If CheckDate%(NotifiedDate) Then MsgBox "Invalid Notification Date!!!" NotifiedDate.SetFocus End If End Sub Sub Picture1_Click () tmp$ = Str$(Grid1.ColWidth(0)) + Str$(Grid1.ColWidth(1)) tmp$ = tmp$ + Str$(Grid1.ColWidth(2)) + Str$(Grid1.ColWidth(3)) tmp$ = tmp$ + Str$(Grid1.ColWidth(4)) + Str$(Grid1.ColWidth(5)) MsgBox tmp$ End Sub Sub Picture1_Paint () Picture1.AutoRedraw = -1 Picture1.FontName = "Small Fonts" Picture1.FontSize = 7 Picture1.FontBold = -1 Picture1.Print "THIS IS A CONTRACT:"; Picture1.FontBold = 0 Picture1.Print " This merchandise is being ordered to the customers exact specifications, please check " Picture1.Print " order carefully. The customer verifies that all measurements on this form are correct. Special orders must be verified " Picture1.Print " prior to ordering-all sales are final-no cancellations-no returns. Payments subject to forfieture if merchandise is not " Picture1.Print " claimed within 30 days after notification arrival." Picture1.CurrentY = 45 Picture1.Print " Edna's provides service deliveries only and is not responsible for property damage beyond curbside delivery. If I assist" Picture1.Print " Edna's with any delivery, it will be at my own risk and I hereby release Edna's from any claims for loss or damage I may" Picture1.Print " have by reason of my assisting with any delivery." Picture1.CurrentY = 80 Picture1.Print " Any additional delivery service shall be my sole responsibility. Edna's is not responsible for any damage to property or" Picture1.Print " injury to persons arising out of Edna's assistance with additional delivery service, and in consideration of such " Picture1.Print " assistance, I release Edna's from any claims for loss or damage I may have and shall indemnify and hold Edna's " Picture1.Print " harmless from such claims by third parties." End Sub Sub RecievedDate_Change () If CheckDate%(RecievedDate) Then MsgBox "Invalid Recieved By Date!!!" RecievedDate.SetFocus End If End Sub Sub SchDate_LostFocus () If CheckDate%(SchDate) Then MsgBox "Invalid Scheduled Delevery Date!!!" SchDate.SetFocus End If End Sub Sub SigDate_Change () If CheckDate%(SigDate) Then MsgBox "Invalid Signature Date!!!" SigDate.SetFocus End If End Sub